﻿'Public Class IlacDosyaListe
'	Inherits Process

'	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
'		Select Case e.EventType
'			Case EventType.Initialize
'				Text ="İşlenmemiş İlaç Dosyaları"
'				InitialHelp = "Dosyayı seçip Devam butonuna tıklayın."
'				AddList()
'				List.AddColumns("rowid(h),sube(Şube;c;50),dosyano(Dosya;r;50),kimlik(Kimlik;c;80),durum(A/P;c;40),adi(Adı;l;50%),soyadi(Soyadı;l;50%),islemtar(Tarih;d;80)")
'				Display()
'				List.SetSQL(Remote, "select repsube as sube,rowid,dosyano,kimlik,sdrm as durum,adi,soyadi,islemtar from silac where islemtar >= '20100818' order by repsube,dosyano")
'				List.Populate()
'			Case EventType.Activate
'				If List.NoSelection Then Exit Sub
'				Dim Process As New IlacDosyaDetay
'				Process.AddArgument("sube", List.SelectedRow("sube"))
'				Process.AddArgument("rowid", List.SelectedRow("rowid"))
'				Process.Run(Window)
'		End Select
'	End Sub

'End Class

Public Class IlacDosyaDetay
	Inherits Process

	Public Overrides Sub GenericEvent(ByVal e As ProcessEventArgs)
		'Select Case e.EventType
		'    Case EventType.Initialize
		'        Text ="Dosya Detayı"
		'        InitialHelp = ""
		'        AddField("dosyano", "nl;disabled")
		'        AddField("kimlik", "disabled")
		'        AddField("adisoyadi", "nl;disabled")
		'        AddGrid()
		'        AddList()
		'    Case EventType.Shown
		'        Rs = Parent.OpenSQL("select * from silac where repsube = @sube and rowid = @rowid", Arguments("sube"), Arguments("rowid"))
		'        SetValues("dosyano,kimlik,adisoyadi", Rs("dosyano"), Rs("kimlik"), Rs("adi").trim & " " & Rs("soyadi").trim)
		'        List.AddColumns("*kod(İlaç kodu;c;80),adi(İlaç adı;l;100%),*adet(Adet;n;80),fiyat(Fiyat;m;80)")
		'        Buttons.Show("Save")
		'    Case EventType.Save
		'End Select
	End Sub

End Class